home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / tex-k / lib-6.9.tar.gz / lib-6.9.tar / texmf / tex / plain / picmac.tex (.txt) < prev    next >
LaTeX Document  |  1993-09-28  |  8KB  |  160 lines
  1. % Pictures (a subset of \LaTeX's conventions, plus squines)
  2. \catcode`@=11 % enable private control sequences
  3. \def\wlog#1{} % don't put allocation info into the log
  4. \newskip\hsssglue \hsssglue=0pt plus 1fill minus 1fill \def\hsss{\hskip\hsssglue}
  5. \newdimen\unitlength \newdimen\linethickness
  6. \newdimen\@picheight \newdimen\@xdim \newdimen\@ydim \newdimen\@len \newdimen\@save
  7. \newcount\@multicount \newcount\@xarg \newcount\@yarg
  8. \newbox\@picbox \newbox\@mpbox
  9. \font\tenln=line10     \font\tenlnw=linew10
  10. \font\tencirc=lcircle10 \font\tencircw=lcirclew10
  11. \def\thinlines{\let\linefont=\tenln \let\circlefont=\tencirc
  12.   \linethickness=\fontdimen8\linefont}
  13. \def\thicklines{\let\linefont=\tenlnw \let\circlefont=\tencircw
  14.   \linethickness=\fontdimen8\linefont}
  15. \thinlines
  16. \def\beginpicture(#1,#2)(#3,#4){\@picheight=#2\unitlength
  17.   \setbox\@picbox=\hbox to#1\unitlength\bgroup \let\line=\@line
  18.     \kern-#3\unitlength \lower#4\unitlength\hbox\bgroup\ignorespaces}
  19. \def\endpicture{\egroup\hss\egroup
  20.   \ht\@picbox=\@picheight \dp\@picbox=\z@
  21.   \leavevmode\box\@picbox}
  22. \def\put(#1,#2)#3{\raise#2\unitlength\rlap{\kern#1\unitlength #3}\ignorespaces}
  23. \def\multiput(#1,#2)(#3,#4)#5#6{\@multicount=#5\relax
  24.  \@xdim=#1\unitlength \@ydim=#2\unitlength \setbox\@mpbox=\hbox{#6}%
  25.  \loop\ifnum\@multicount>0
  26.    \raise\@ydim\rlap{\kern\@xdim \unhcopy\@mpbox}%
  27.    \advance\@xdim#3\unitlength \advance\@ydim#4\unitlength
  28.    \advance\@multicount\m@ne \repeat\ignorespaces}
  29. \def\makebox(#1,#2)#3{\setbox\@picbox=\hbox to#1\unitlength{\hss#3\hss}%
  30.   \@ydim=\ht\@picbox \advance\@ydim-\dp\@picbox
  31.   \ht\@picbox=#2\unitlength \dp\@picbox=\z@
  32.   \leavevmode\lower.5\@ydim\box\@picbox}
  33. \newif\ifneg
  34. \def\@line(#1,#2)#3{\@xarg=#1 \@yarg=#2 \@len=#3\unitlength \leavevmode
  35.  \ifnum\@xarg<0 \reverseline \else \negfalse \@ydim=\z@\fi
  36.  \ifnum\@xarg=0 \@vline
  37.  \else\ifnum\@yarg=0 \@hline \else\@sline\fi\fi
  38.  \ifneg\kern-\@len\else\@save=\@ydim\fi}
  39. \def\reverseline{\negtrue \kern-\@len \@xarg=-\@xarg
  40.  \@ydim=\@len \multiply\@ydim\@yarg \divide\@ydim\@xarg \@yarg=-\@yarg}
  41. \def\@hline{\vrule height.5\linethickness depth.5\linethickness width\@len}
  42. \def\@vline{\kern-.5\linethickness\vrule width\linethickness
  43.   \ifnum\@yarg<0 height\z@ depth\else depth\z@ height\fi\@len
  44.   \kern-.5\linethickness}
  45. \def\@sline{\setbox\@picbox=\hbox{\linefont \count@=\@xarg \multiply\count@ 8
  46.  \ifnum\@yarg>0 \advance\count@\@yarg \advance\count@-9
  47.  \else \advance\count@-\@yarg \advance\count@ 55 \fi \char\count@}%
  48.  \ifnum\@yarg<0 \@picheight=-\ht\@picbox \advance\@ydim\@picheight
  49.  \else \@picheight=\ht\@picbox \fi
  50.  \@xdim=\wd\@picbox \@save=\@ydim
  51.  \loop\ifdim\@xdim<\@len \raise\@ydim\copy\@picbox
  52.   \advance\@xdim\wd\@picbox \advance\@ydim\@picheight \repeat
  53.  \advance\@xdim-\@len \kern-\@xdim
  54.  \multiply\@xdim\@yarg \divide\@xdim\@xarg \advance\@ydim-\@xdim
  55.  \raise\@ydim\box\@picbox}
  56. \def\vector(#1,#2)#3{\@line(#1,#2){#3}%
  57.  \ifnum\@xarg=0 \@vvector \else\ifnum\@yarg=0 \@hvector \else\@svector\fi\fi}
  58. \def\@hvector{\ifneg\rlap{\linefont\char27}\else
  59.  \smash{\llap{\linefont\char45}}\fi} % we have to smash because of font bug
  60. \def\@vvector{\ifnum\@yarg<0 \raise-\@len\rlap{\linefont\char63}%
  61.  \else\setbox\@picbox=\rlap{\linefont\char54}\advance\@len-\ht\@picbox
  62.  \raise\@len\box\@picbox\fi}
  63. \def\@svector{\setbox\@picbox=\hbox to\z@{\linefont
  64.  \ifnum\@yarg<0 \count@=55 \@yarg=-\@yarg \else\count@=-9 \fi
  65.  \ifneg\multiply\@xarg16 \multiply\@yarg2
  66.  \else\hss % \llap
  67.   \ifnum\@xarg>2 \multiply\@xarg9 \multiply\@yarg2 \advance\count@29
  68.   \else\ifnum\@yarg>2 \multiply\@xarg16 \multiply\@yarg9 \advance\count@-20
  69.    \else\multiply\@xarg24 \multiply\@yarg3 \fi\fi\fi
  70.   \advance\count@\@xarg \advance\count@\@yarg \char\count@
  71.   \ifneg\hss\fi}% \rlap
  72.  \raise\@save\box\@picbox}
  73. \def\disk#1{\@len=#1\unitlength \count@='160 \@diskcirc}
  74. \def\circle#1{\@len=#1\unitlength \count@='140 \@diskcirc}
  75. \def\@diskcirc{\setbox\@picbox=\hbox{\circlefont\char\count@}\@xdim=\wd\@picbox
  76.  \leavevmode \ifdim\@len>15.499\@xdim \@bigdc \else \@smalldc\fi}
  77. \def\@bigdc{\ifnum\count@<'160 \@bigcirc
  78.  \else \@len=15\@xdim \@diskcirc\fi}
  79. \def\@smalldc{{\advance\@len-.5\@xdim
  80.  \loop\ifdim\@xdim<\@len \advance\count@\@ne \advance\@xdim\wd\@picbox\repeat
  81.  \hbox{\circlefont\char\count@}}}
  82. \def\@bigcirc{{\circlefont\count@=15
  83.  \setbox\@picbox=\hbox{\char\count@}\@xdim=\wd\@picbox
  84.  \ifdim\@len>2.5\@xdim \@len=2.5\@xdim\fi
  85.  \advance\@len-.125\wd\@picbox
  86.  \loop\ifdim\@xdim<\@len \advance\count@ 4 \advance\@xdim.25\wd\@picbox\repeat
  87.  \@ydim=.5\@xdim \advance\@ydim.5\linethickness
  88.  \setbox\@picbox=\vbox{\hbox{\char\count@\advance\count@-3\char\count@}%
  89.   \nointerlineskip
  90.   \hbox{\advance\count@\m@ne\char\count@\advance\count@\m@ne\char\count@}}%
  91.  \kern-\@ydim\lower\@ydim\box\@picbox}}
  92. \newif\ifovaltl \newif\ifovaltr \newif\ifovalbl \newif\ifovalbr
  93. \ovaltltrue \ovaltrtrue \ovalbltrue \ovalbrtrue
  94. \def\oval(#1,#2){\@xdim=#1\unitlength \@ydim=#2\unitlength
  95.  {\circlefont \setbox\@picbox=\hbox{\char0}
  96.  \ifdim\@xdim<\wd\@picbox \@xdim=\wd\@picbox\fi
  97.  \ifdim\@ydim<\wd\@picbox \@ydim=\wd\@picbox\fi
  98.  \@save=\@xdim \ifdim\@ydim<\@save \@save=\@ydim \fi
  99.  \count@=39
  100.  \loop \setbox\@picbox=\hbox{\char\count@}\ifdim\@save<\wd\@picbox
  101.   \advance\count@-4 \repeat
  102.  \setbox\strutbox=\hbox{\vrule height\ht\@picbox depth\dp\@picbox width\z@
  103.    \kern\wd\@picbox}%
  104.  \@save=.5\wd\@picbox \advance\@save-.5\linethickness
  105.  \setbox0=\hbox to\@xdim{\ifovaltl\char\count@\else\strut\fi
  106.   \kern-\@save\leaders\hrule height\ifovaltl\linethickness\else\z@\fi\hfil
  107.   \leaders\hrule height\ifovaltr\linethickness\else\z@\fi\hfil\kern\@save
  108.   \ifovaltr\advance\count@-3\char\count@\else\strut\fi\kern-\wd\@picbox}%
  109.   \advance\count@\m@ne
  110.  \setbox2=\hbox to\@xdim{\ifovalbl\char\count@\else\strut\fi
  111.   \kern-\@save\leaders\hrule height\ifovalbl\linethickness\else\z@\fi\hfil
  112.   \leaders\hrule height\ifovalbr\linethickness\else\z@\fi\hfil\kern\@save
  113.   \ifovalbr\advance\count@\m@ne\char\count@\else\strut\fi\kern-\wd\@picbox}%
  114.  \@save=\@ydim \advance\@save-\wd\@picbox \divide\@save 2
  115.  \setbox\@picbox=\vbox{\box0\nointerlineskip
  116.   \hbox to\@xdim{\vrule height\@save width\ifovaltl\linethickness\else\z@\fi
  117.     \hfil\ifovaltr\vrule width\linethickness\kern-\linethickness\fi}%
  118.   \nointerlineskip
  119.   \hbox to\@xdim{\vrule height\@save width\ifovalbl\linethickness\else\z@\fi
  120.     \hfil\ifovalbr\vrule width\linethickness\kern-\linethickness\fi}%
  121.   \nointerlineskip\box2}%
  122.   \@save=.5\@ydim \advance\@save.5\linethickness \leavevmode
  123.   \kern-.5\@xdim \kern-.5\linethickness \lower\@save\box\@picbox}}
  124. \def\cpic#1\endcpic{\vcenter{\hbox{\beginpicture#1\endpicture}}}
  125. % Squines (quadratic splines)
  126. % example of use: to plot f(x) between x0 and x1, you can say
  127. % \put(0,0){\squine(x0,xm,x1,y0,ym,y1)}, where y0=f(x0), y1=f(x1)
  128. % xm=(y0-y1+s1x1-s0x0)/(s1-s0), ym=(s0(s1x1-y1)-s1(s0x0-y0))/(s1-s0),
  129. % s0=f'(x0), and s1=f'(x1).
  130. \newdimen\@xi \newdimen\@xii \newdimen\@xiii \newdimen\@xiv
  131. \newdimen\@xpt \newdimen\@xoldpt
  132. \newdimen\@yi \newdimen\@yii \newdimen\@yiii \newdimen\@yiv
  133. \newdimen\@ypt \newdimen\@yoldpt
  134. \def\squine(#1,#2,#3,#4,#5,#6){\setbox\@picbox\hbox{\tencirc q}%
  135.  \global\@xoldpt=#1\unitlength \global\@yoldpt=#4\unitlength \kern\@xoldpt
  136.  \@xi=\@xoldpt \@xii=#2\unitlength \@xiii=#3\unitlength
  137.  \@yi=\@yoldpt \@yii=#5\unitlength \@yiii=#6\unitlength
  138.  \squinerec
  139.  \@xpt=#3\unitlength \@ypt=#6\unitlength \@addpoint
  140.  \raise\@ypt\copy\@picbox}
  141. \newif\iffar
  142. \def\squinerec{\farfalse \testnear\@xi\@xiii \testnear\@yi\@yiii
  143.  \iffar \decast \fi}
  144. \def\testnear#1#2{\@save=#1\advance\@save-#2%
  145.  \ifdim\@save<\z@ \@save=-\@save\fi \ifdim\@save>\p@ \fartrue \fi}
  146. \def\decast{\@xpt=\@xi \advance\@xpt\@xii \divide\@xpt2
  147.  \advance\@xii\@xiii \divide\@xii2
  148.  \@xiv=\@xpt \advance\@xiv\@xii \divide\@xiv2
  149.  \@ypt=\@yi \advance\@ypt\@yii \divide\@ypt2
  150.  \advance\@yii\@yiii \divide\@yii2
  151.  \@yiv=\@ypt \advance\@yiv\@yii \divide\@yiv2
  152.  \begingroup\@xii=\@xpt \@xiii=\@xiv
  153.   \@yii=\@ypt \@yiii=\@yiv \squinerec\endgroup
  154.  \@xpt=\@xiv \@ypt=\@yiv \@addpoint
  155.  \@xi=\@xiv \@yi=\@yiv \squinerec}
  156. \def\@addpoint{%\message{(\the\@xpt,\the\@ypt)}%
  157.  \global\advance\@xoldpt-\@xpt \wd\@picbox=-\@xoldpt
  158.  \raise\@yoldpt\copy\@picbox \global\@xoldpt=\@xpt \global\@yoldpt=\@ypt}
  159. \catcode`\@=12 % disable private control sequences
  160.